home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1998 March / MACPOWER-1998-03.ISO.7z / MACPOWER-1998-03.ISO / MacPowerオリジナル / AppleScript救急隊 / Simple Save As < prev    next >
Text File  |  1997-12-27  |  1KB  |  44 lines
  1. --Photoshop上で別名保存する例です。
  2. --Photoshop上でファイルを開いてから実行して下さい。
  3. --Adobe Photoshop(R) 4.0Jの他にPreFab Player（またはデモ版）が必要です。
  4. (*開かれているPhotoshopの画像のファイル形式を「JPEG」または「Photoshop EPS」に変更し、
  5. ファイル名に拡張子を付けて元の場所に保存して画像を閉じます。
  6. その際に、同名のファイルが既にあればこれを入れ換えます。
  7. 尚、コメントアウトしてある、tell application "PreFab Playerｪ"に続く３行を生かすと、
  8. 念のため処理のはじめに環境設定メニュー上でファイル名に自動的に拡張子を付けないように設定します。*)
  9.  
  10.  
  11. tell application "Adobe Photoshop(R) 4.0J"
  12.     activate
  13.     tell application "PreFab Playerｪ"
  14.         --do menu menu item "ファイルの保存" of submenu "環境設定" of menu "ファイル"
  15.         --do menu popup item "追加しない" of popup "ファイル拡張子"
  16.         --type enter
  17.         
  18.         --開いているファイルを別名で保存する
  19.         do menu menu item "別名で保存" of menu "ファイル"
  20.         
  21.         --まず、JPEGで保存してみる
  22.         try
  23.             do menu popup item "JPEG" of popup "ファイル形式"
  24.             type {down arrow, ".jpg"}
  25.             type enter
  26.             --もし、JPEGで保存できなければEPSで保存する
  27.         on error
  28.             do menu popup item "Photoshop EPS" of popup "ファイル形式"
  29.             type {down arrow, ".eps"}
  30.             type enter
  31.         end try
  32.         
  33.         --保存先に同名のファイルが既にあれば、これを入れ換える
  34.         try
  35.             click button "入れ換え"
  36.             type enter
  37.         on error
  38.         end try
  39.         
  40.         --続けて表示されるダイアログは無視してファイルを閉じる
  41.         type enter
  42.         do menu menu item "閉じる" of menu "ファイル"
  43.     end tell
  44. end tell